oscr lecture/r/print.oSCR.fit.R

print.oSCR.fit <-
function(x, burn=NULL, ...) {
    
    
    # processing
    
    
cat(" iterations (total): ", NULL,fill=TRUE)
cat(" ",fill=TRUE)
cat(" burn-in: ", NULL, fill=TRUE)
cat(" total posterior samples: ", NULL,  fill=TRUE)
cat("-------------------------------------------------------",fill=TRUE)
cat("Posterior summaries of model parameters:","\n")

print(x$outStats,...)


}
jaroyle/oSCR documentation built on Sept. 23, 2023, 12:46 p.m.